home *** CD-ROM | disk | FTP | other *** search
/ More Anime Pin-Up Beauties / More Anime Pin-Up Beauties.iso / pc / east / gpx05.dir / 00193_Script_193 < prev    next >
Text File  |  1998-06-22  |  3KB  |  126 lines
  1. -- Initialize of Girls GrandPrix
  2. on initGPX
  3.     global gFulCol
  4.     global gPathPict
  5.     global gPathLine
  6.     global gPathItem
  7.     global gPathAiff
  8.     global gBGMnum
  9.  
  10.     global gCurPal
  11.     global gBackFrame
  12.  
  13.     global gBOXnum
  14.  
  15.     global gSLDnum
  16.     global gSLDint
  17.     global gSLDply
  18.     global gWait
  19.  
  20.     global gScore
  21.  
  22.  
  23.  
  24.     put 1 into gSLDnum
  25.     put 1 into gBOXnum
  26.     put 3 into gSLDint
  27.     put 1 into gSLDply
  28.     put 5 into gWait
  29.     
  30.     if (envCheckMAC()=FALSE) then
  31. --    if (envCheckPC()=FALSE) then
  32.         quit
  33.     end if
  34.     cursor 4
  35.     put pathName() & "EAST:PAINT8:" into gPathPict
  36.     put pathName() & "EAST:LINEART:" into gPathLine
  37.     put pathName() & "EAST:ITEM8:" into gPathItem
  38.     put pathName() & "EAST:AIFF:" into gPathAiff
  39.  
  40.     if (gFulCol = 1) then
  41.         put pathName() & "EAST:PAINT24:" into gPathPict
  42.         put pathName() & "EAST:ITEM24:" into gPathItem
  43.    end if
  44.     
  45.     set the soundEnabled to TRUE
  46.     aiffSound(0)
  47.  
  48.     put "PL-000" into gCurPal
  49. --    aiffSound(1)
  50. --    set the exitLock to TRUE
  51.     set the keyDownScript to "keyBoard()"
  52.  
  53.  
  54. -- +++++++++++++++++++++++++++++++++ environment checker
  55. on envCheckMAC
  56.     global gFulCol
  57.  
  58.     if (the colorDepth < 8 ) then
  59.         alert "256 Color mode is required"
  60.         return FALSE
  61.     end if
  62.  
  63.     if ((the colorDepth > 16) AND (the memorySize < (8000*1024))) then
  64.         alert "Your system does not have enough memory to run this program"
  65.         return FALSE
  66.     end if
  67.  
  68.     if (the memorySize < (5000*1024)) then
  69.         alert "A minimum of 5 MB of free ram is required."
  70.         return FALSE
  71.     end if
  72.  
  73.     if (the colorDepth > 8 ) then
  74.         put 1 into gFulCol
  75.     else
  76.         put 0 into gFulCol
  77.     end if
  78.  
  79.     return TRUE
  80.  
  81.  
  82. -- +++++++++++++++++++++++++++++++++ environment checker
  83. on envCheckPC
  84.     global gFulCol
  85.  
  86.     if (the colorDepth < 8 ) then
  87.         alert "256 Color mode is required"
  88.         return FALSE
  89.     end if
  90.  
  91.     if (the colorDepth > 8 ) then
  92.         put 1 into gFulCol
  93.     else
  94.         put 0 into gFulCol
  95.     end if
  96.  
  97.     return TRUE
  98.  
  99. -- ++++++++++++++++++++++++++++++++ KEY BOARD handler
  100. on keyBoard
  101.     global gBgmNum
  102.     if (the key = "Q" AND commandDown()) then
  103.         termGPX()
  104.     end if
  105.  
  106.     if (the key = "S" AND commandDown()) then
  107.         if (the soundEnabled = TRUE) then
  108.             aiffSound(0)
  109.             set the soundEnabled to FALSE
  110.         else
  111.             set the soundEnabled to TRUE
  112.             aiffSound(gBgmNum)
  113.         end if
  114.  
  115.     end if
  116.  
  117. -- ++++++++++++++++++++++++++++++++ terminate NureNure
  118. on termGPX
  119.     cursor 4
  120.     set the keyDownScript to EMPTY
  121.     go to frame "ENDING"
  122.     cursor -1
  123.     upDateStage
  124.     quit
  125.  
  126.